    numChars = Len(prodId)
    numToDrop = InStr(prodId, "_")
    numToKeep = numChars - numToDrop
    Debug.Print numChars; numToDrop; numToKeep